home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / vts139b.zip / VTBITMAP.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-25  |  2KB  |  56 lines
  1. UNIT VTBitmaps;
  2.  
  3. INTERFACE
  4.  
  5. PROCEDURE WriteVTLogo     (Offs: WORD);
  6. PROCEDURE WriteVTNoPartAct(Offs: WORD);
  7.  
  8.  
  9.  
  10.  
  11. IMPLEMENTATION
  12.  
  13. USES Output43, Vid43;
  14.  
  15.  
  16.  
  17.  
  18. PROCEDURE WriteVTLogo     (Offs: WORD);
  19.   CONST
  20.     VTLogo : ARRAY[1..4] OF ARRAY[1..16] OF BYTE = (
  21.  
  22.       {[---1---][---2----][---3----][---4----][---5----][---6----][---7----][---8----]}
  23.  
  24.       ( 95, $35, 132, $35, 133, $35,  95, $35,  95, $35,  95, $35,  95, $35,  95, $35),
  25.       (136, $35, 137, $37, 138, $35, 133, $37,  95, $37,  32, $35, 133, $37, 134, $37),
  26.       (139, $35, 140, $37, 141, $35, 142, $37, 143, $35,  32, $35, 131, $37,  32, $37),
  27.       (144, $35,  95, $37,  95, $37, 145, $37, 143, $35,  95, $37, 146, $37,  32, $37)
  28.     );
  29.   VAR
  30.     i : WORD;
  31.   BEGIN
  32.     FOR i := 1 TO 4 DO Move(VTLogo[i], Ptr(ScrSegment, Offs + ScreenBytesX*(i-1))^, 16);
  33.   END;
  34.  
  35.  
  36. PROCEDURE WriteVTNoPartAct(Offs: WORD);
  37.   CONST
  38.     VTNoPartAct : ARRAY[1..2] OF ARRAY[1..32] OF BYTE = (
  39.  
  40.       {[---1---][---2----][---3----][---4----][---5----][---6----][---7----][---8----]}
  41.  
  42.       (147, $35, 148, $35, 148, $35, 148, $35, 148, $35, 148, $35, 148, $35, 148, $35,
  43.        148, $35, 148, $35, 148, $35, 148, $35, 148, $35, 148, $35, 148, $35, 149, $37),
  44.       (150, $35, 148, $37, 148, $37, 148, $37, 148, $37, 148, $37, 148, $37, 148, $37,
  45.        148, $37, 148, $37, 148, $37, 148, $37, 148, $37, 148, $37, 148, $37, 151, $37)
  46.     );
  47.   VAR
  48.     i : WORD;
  49.   BEGIN
  50.     FOR i := 1 TO 2 DO Move(VTNoPartAct[i], Ptr(ScrSegment, Offs + ScreenBytesX*(i-1))^, 32);
  51.   END;
  52.  
  53.  
  54.  
  55.  
  56. END.